2 GOTO80
3 E=+1:POKEA,32:POKEA+22,32::A=A+E:IFPEEK(A+44)=32THEN7
4 GOTO37
5 E=-1:POKEA,32:POKEA+22,32:A=A+E:IFPEEK(A+44)=32THEN7
6 GOTO37
7 L=.:T=241:POKEV-2,.
8 POKEA,32:POKEA+22,32:L=L+1:A=A+22:IFPEEK(A+44)=4THEN12
9 IFA=BTHEN64
10 POKEA,.:POKEA+22,1:POKEU,T:T=T-3:GOTO8
12 IFL>=9THEN55
13 POKEU,.:GOTO37
14 Y=135:BJ=BJ+1
15 POKEV-2,Y:Y=Y+5:POKEA,32:POKEA+22,32:IFPEEK(A-22)=4THENA=A+1:GOTO7
17 IFA<7702THENA=A+1:GOTO7
18 IFA-22=NORPEEK(A-22)=5THEN55
19 A=A-22:POKEA,.:POKEA+22,1:GOTO15
20 POKE36869,255:PRINT"[147]HOP[146] AROUND":PRINT"BY[157][157]KEVIN[157][157][157][157][157]DEWEY"
21 PRINT"KEYS-LEFT=[156] :[157][157][157][157][157][157][157]RIGHT=[156] ;[157][157][157][157][157][157][157][157]JUMP=[156] J"
22 PRINT"OBJECT:":PRINT"@[157]A[145] MUST SAVE[146] F[157]G[145] FROM[146] B[157]C,"
23 PRINT"WHILE DODGING[146] B[157]C[145] AND[146] E!"
24 PRINT"[144]HIT A KEY TO START..."
25 GETA$:IFA$=""THEN25
26 GOTO89
27 GU=1:POKEB-22,2:GOTO55
30 A=8109:B=7703:V=36878:POKEV,15:POKEV+1,24:U=36876:C=7744
32 PRINT"DDDDDDDDDDDDDDDDDDDDDD";
34 POKEB,2:POKEB+22,3:D=PEEK(197):IFD=45THEN5
35 POKEC-22,6:POKEC,MZ:IFD=22THEN3
36 IFD=20THEN14
37 POKEA,.:POKEA+22,1:IFPEEK(A+44)=32THEN7
38 M=INT(RND(1)*9)+1:IFM=9ANDP=.THEN42
39 IFA=BTHEN27
40 IFP=1THENRETURN
41 GOTO34
42 FORT=241TO200STEP-1:POKEU,T:POKEU-1,T:NEXT:POKEU,.:N=INT(RND(1)*19)+7746:P=1:T=241
43 FORO=NTON+462STEP22:POKEN,5:POKEU,T:GOSUB34:POKEN,32:N=N+22:IFN=AORN=A+22THEN55
44 IFPEEK(N)=4THENPOKEV-1,135:FORT=1TO10:NEXT:POKEV-1,.:N=N+1
45 NEXT:POKEU,.
46 P=0:POKEN,32:N=.:POKEB,32:POKEB+22,32:B=B+1:IFPEEK(B)=6THEN49
47 IFMZ=8THENMZ=7:GOTO34
48 IFMZ=7THENMZ=8:GOTO34
49 POKEV-2,.:TR=240
50 FORT=7744TO8186STEP22:POKET,7:POKET-22,6:POKET-1,3:POKET-23,2:POKEV-1,TR:TR=TR-5
51 FORTT=1TO20:NEXT:POKET,32:POKET-22,32:POKET-1,32:POKET-23,32:NEXT
52 POKEV-1,.:FORTT=1TO300:NEXT
55 RR=2:POKEU,.:POKEA,32:POKEA+22,9:POKEA+23,10:POKEU+1,200:IFGU=1THENPOKEB,3:GU=.
56 FORT=1TO450:NEXT:POKEU+1,.:FORT=1TO500:NEXT
57 POKEV,.
58 PRINT"[147]YOU BOMBED OUT.":POKE36869,240
59 PRINT"HIT A KEY TO TRY AGAIN":PRINT"(DO IT RIGHT          THIS TIME!)"
61 IFPEEK(197)<>64ANDPEEK(197)<>39THENRUN90
62 GOSUB96
63 GOTO61
64 POKEB-1,.:POKEB+21,1
65 Y=135:FORT=BTO8184STEP+23:POKET,2:POKET+22,3:POKEV-2,Y:Y=Y+5:FORTT=1TO15:NEXT
67 POKET,32:POKET+22,32:NEXT:POKEV-2,0:FORT=1TO500:POKEV-1,135:NEXT:POKEV-1,.
69 POKEV,.:RR=1:POKE36869,240:PRINT"[147]YOU DID IT!"
70 PRINT"YOU SAVED SWEET DORIS.":PRINT"WITH ONLY";BJ;" JUMPS!"
71 PRINT"DO YOU WISH TO PLAY   AGAIN,HERO?"
72 PRINT"IF SO,HIT ANY KEY."
73 IFPEEK(197)<>64ANDPEEK(197)<>39THENRUN90
74 GOSUB96
75 GOTO73
80 POKE52,28:POKE56,28:CLR:FORI=7168TO7679:POKEI,PEEK(I+25600):NEXT:FORA=7168TO7257
81 READB:POKEA,B:NEXT
83 DATA60,126,219,255,231,126,66,60,24,255,189,189,60,36,36,102,126,90,126,255,129,195
84 DATA102,60,24,153,189,255,126,255,36,102,254,170,254,0,0,0,0,0,28,28,28,28,8,62,28,8
85 DATA60,126,106,247,189,164,60,24,189,254,120,60,124,71,33,96,222,127,30,60,62,226,132
86 DATA6,56,126,221,245,245,221,126,56,112,65,127,248,248,127,65,112,0,0
87 GOTO20
89 GT=0:POKE646,GT
90 PRINT"[147]";:POKE36869,255:FORT=1TO490:PRINT" ";:NEXT
91 PRINT"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD";
92 PRINT"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD";
93 MZ=7:GOTO30
96 IFPEEK(197)=39THENGT=GT+1:POKE646,GT:IFRR=2THEN58
97 IFPEEK(197)=39ANDRR=1THEN69
98 IFGT>6THENGT=0
99 POKE646,GT:RETURN